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-- file LookAt.Mesa edited by Sandman, September 30, 1977 1:19 PM 

DIRECTORY 

ImageDefs: FROM "imagedefs", 

lODefs: FROM "iodefs", 

KeyDefs: FROM "keydefs", 

RectangleDefs: FROM "rectangledef s", 

WindowDefs: FROM "Windowdef s" , 

WManagerDefs: FROM "WManagerDef s"; 

LookAt: PROGRAM IMPORTS RectangleDefs, lODefs, WindowDefs, WManagerDefs * 
BEGIN OPEN RectangleDefs; 
s; STRING ♦• [100]; 

displayhead: DCBptr = LOOPHOLE [4208]; 
topmargin: CARDINAL ♦- 4; 
leftmargin: CARDINAL ♦• 1; 
npages: CARDINAL ♦• 108; 
width: CARDINAL ^ 36; 
dmap: BMHandle; 
dcbptr: DCBptr; 

dwindow: WindowDefs. WindowHandle ^ WindowDefs .GetCurrentDisplayWindow[]; 
dmap ♦- GetDefauUBitmap[]; 
dcbptr ♦• displayhead .next; 
dcbptr. height ^ topmargin; 
dmap.yO ^ topmargin * 2; 
dmap . indenting ♦- leftmargin; 
dmap.xO ^ leftmargin * 16; 
ReanocateBitmap[dmap. npages, width]; 

RectangleDefs.GrowRect angle [dwindow. rectangle, dmap. width, 100]; 
WindowDef s.Repa into isplayWindows[ dmap]; 
START WManagerDefs. WManControl ; 
IODefs.WriteLine[" Alto/Mesa Viewer"]; 

DO OPEN lODefs; ENABLE Rubout => EXIT; ReadLine[s]; Wri teChar[CR] ; ENDLOOP; 
ImageDefs .StopMesa[]; 
END. 


